Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / apcp.arc / A-MENU.CMD < prev next >

Wrap

Text File | 1987-01-14 | 10.9 KB | 411 lines

goto menu dial: clear message "│" locate 0,2 message s3 locate 0,6 message "│ n/a │" locate 0,19 message s1 locate 0,47 message "│ n/a │" locate 2,0 transmit "C DIAL" transmit s3 transmit "/12," transmit "--------!" ; ****** YOUR PC-PURSUIT ACCOUNT# ****** waitfor "=" transmit "--------!" ; ****** YOUR PC-PURSUIT PASSWORD ****** rget s9 ; Eat Echo rget s9 80 40 ; Eat Linefeed rget s9 40 pause 1 find s9 "CONNECTED" if found alarm 2 execute s2 else assign s7 "M" endif return menu: clear message "╔════════════════════════════════════════════════════════════════════════════╗" message "║ A- Atlanta, GA ................. 404 V- Salt Lake City, UT .......... 801 ║" message "║ B- Boston, MA .................. 617 W- Seattle, WA ................. 206 ║" message "║ C- Chicago, IL ................. 312 X- Tampa, FL ................... 813 ║" message "║ D- Cleveland, OH ............... 216 Y- Washington, DC ...... 202 301 703 ║" message "║ E- Dallas, TX .................. 214 Z- ............................. ... ║" message "║ F- Denver, CO .................. 303 0- ............................. ... ║" message "║ G- Detroit, MI ................. 313 1- ............................. ... ║" message "║ H- Glendale, CA ............ 818 213 2- ............................. ... ║" message "║ I- Houston, TX ................. 713 3- ............................. ... ║" message "║ J- Los Angeles, CA ............. 213 4- ............................. ... ║" message "║ K- Miami, FL ................... 305 5- ............................. ... ║" message "║ L- Milwaukee, WI ............... 414 6- ............................. ... ║" message "║ M- Minneapolis, MN ............. 612 7- ............................. ... ║" message "║ N- New York, NY ................ 212 8- ............................. ... ║" message "║ O- Newark, NJ .................. 201 9- ............................. ... ║" message "║ P- Philadelphia, PA ............ 215 @- ............................. ... ║" message "║ Q- Phoenix, AZ ................. 602 #- ............................. ... ║" message "║ R- Portland, OR ................ 503 $- ............................. ... ║" message "║ S- Research Triangle Park, NC .. 919 %- ............................. ... ║" message "║ T- San Francisco, CA ........... 415 &- ............................. ... ║" message "║ U- San Jose, CA ............ 408 415 *- ............................. ... ║" message "╚════════════════════════════════════════════════════════════════════════════╝" locate 23,2 get s0 top: find s0 "A" if found assign s1 "Atlanta, GA " assign s2 "A404A.CMD" assign s3 "404" gosub dial else endif find s0 "B" if found assign s1 "Boston, MA " assign s2 "A617A.CMD" assign s3 "617" gosub dial else endif find s0 "C" if found assign s1 "Chicago, IL " assign s2 "A312A.CMD" assign s3 "312" gosub dial else endif find s0 "D" if found assign s1 "Cleveland, OH " assign s2 "A216A.CMD" assign s3 "216" gosub dial else endif find s0 "E" if found assign s1 "Dallas, TX " assign s2 "A214A.CMD" assign s3 "214" gosub dial else endif find s0 "F" if found assign s1 "Denver, CO " assign s2 "A303A.CMD" assign s3 "303" gosub dial else endif find s0 "G" if found assign s1 "Detroit, MI " assign s2 "A313A.CMD" assign s3 "313" gosub dial else endif find s0 "H" if found assign s1 "Glendale, CA " assign s2 "A818A.CMD" assign s3 "818" gosub dial else endif find s0 "I" if found assign s1 "Houston, TX " assign s2 "A713A.CMD" assign s3 "713" gosub dial else endif find s0 "J" if found assign s1 "Los Angeles, CA " assign s2 "A213A.CMD" assign s3 "213" gosub dial else endif find s0 "K" if found assign s1 "Miami, FL " assign s2 "A305A.CMD" assign s3 "305" gosub dial else endif find s0 "L" if found assign s1 "Milwaukee, WI " assign s2 "A414A.CMD" assign s3 "414" gosub dial else endif find s0 "M" if found assign s1 "Minneapolis, MN " assign s2 "A612A.CMD" assign s3 "612" gosub dial else endif find s0 "N" if found assign s1 "New York, NY " assign s2 "A212A.CMD" assign s3 "212" gosub dial else endif find s0 "O" if found assign s1 "Newark, NJ " assign s2 "A201A.CMD" assign s3 "201" gosub dial else endif find s0 "P" if found assign s1 "Philadelphia, PA " assign s2 "A215A.CMD" assign s3 "215" gosub dial else endif find s0 "Q" if found assign s1 "Phoenix, AZ " assign s2 "A602A.CMD" assign s3 "602" gosub dial else endif find s0 "R" if found assign s1 "Portland, OR " assign s2 "A503A.CMD" assign s3 "503" gosub dial else endif find s0 "S" if found assign s1 "Research Triangle Park, NC" assign s2 "A919A.CMD" assign s3 "919" gosub dial else endif find s0 "T" if found assign s1 "San Francisco, CA " assign s2 "A415A.CMD" assign s3 "415" gosub dial else endif find s0 "U" if found assign s1 "San Jose, CA " assign s2 "A408A.CMD" assign s3 "408" gosub dial else endif find s0 "V" if found assign s1 "Salt Lake City, UT " assign s2 "A801A.CMD" assign s3 "801" gosub dial else endif find s0 "W" if found assign s1 "Seattle, WA " assign s2 "A206A.CMD" assign s3 "206" gosub dial else endif find s0 "X" if found assign s1 "Tampa, FL " assign s2 "A813A.CMD" assign s3 "813" gosub dial else endif find s0 "Y" if found assign s1 "Washington, DC " assign s2 "A202A.CMD" assign s3 "202" gosub dial else endif goto speedup ; Skip Empty Elements find s0 "Z" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "0" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "1" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "2" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "3" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "4" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "5" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "6" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "7" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "8" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "9" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "@" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "#" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "$" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "%" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "&" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif find s0 "*" if found assign s1 " " assign s2 " " assign s3 " " gosub dial else endif speedup: find s7 "M" if found assign s7 " " goto top else endif message "NO CITY REQUESTED" alarm 2 exit